home *** CD-ROM | disk | FTP | other *** search
Text File | 1997-10-15 | 1.7 KB | 48 lines | [TEXT/MPS ] |
- #
- # File: ThreadedVUTool.vulib
- #
- # Contains: The tool definition along with the high level tasks to access
- # the tool's services
- #
- #
- # Written by: Stuart Russell from FileTool by P. Nagarajan
- #
- # Copyright: © 1993-4 by Apple Computer, Inc., all rights reserved.
- #
- # Change History (most recent first):
- #
- # 10/30/94 SBR Built with Echo service
- # 03/26/93 NAGA xxx put comment here xxx
- #
- # To Do:
- #
-
- tool ThreadedVUTool s:'vu21'
- begin
- # Services specific to ThreadedVUTool:
-
- # To Echo a list after a number of ticks, in a new thread
- Service "EchoThread"( 'undefined', 'integer', 'symbol', 'integer' ) return 'undefined';
- # first parameter is the value or list of values to echo
- # second parameter is the number of ticks to pause before returning
- # third parameter is Boolean:
- # true means beep entering and leaving ProcessRequest()
- # false means do not
- # fourth parameter is integer n:
- # non-zero means beep after every n loops waiting for the cancel
- # zero means do not beep while looping
- # return value should be equal to first parameter except when:
- # symbol and descriptor parameters are turned into strings by VU
- # integers are sent to the tool as long or short based on VU version
- # longs are sent to the script as long or string based on VU version
-
- # To Echo a list after a number of ticks, in the RequestDispatcher thread
- Service "EchoNoThread"( 'undefined', 'integer', 'symbol', 'integer' ) return 'undefined';
- # same as Echo service except this one is non-threaded
-
- # To set the number of ticks given to WaitNextEvent() in the tool
- # Only affects the tool when it is in the background
- # returns the previous value
- Service "SetSleepTicks"( 'integer' ) return 'integer';
-
- end;